home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / gatu.dir / 00020.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  413 b   |  18 lines
  1. on exitFrame
  2.   global numb, tuki, mydatebase, monthdata, nmonth, yubicurs
  3.   set numb to EMPTY
  4.   if (monthdata & EMPTY) = EMPTY then
  5.     set tuki to 1
  6.     put "January" into field "GATU"
  7.   else
  8.     put nmonth into field "GATU"
  9.   end if
  10.   drawpict(tuki)
  11.   set the textSize of field "GATU" to 36
  12.   repeat with n = 13 to 27
  13.     set the cursor of sprite n to yubicurs
  14.   end repeat
  15.   puppetSound(0)
  16.   updateStage()
  17. end
  18.